(hexl-insert-char): Increment `address' for every character inserted.

diff --git a/lisp/hexl.el b/lisp/hexl.el
index ebb283f6e01a709d08b47ed6ddca6a622a1f5a61..d7e7cd44baac9650877a80c84718257564b7231b 100644 (file)
--- a/lisp/hexl.el
+++ b/lisp/hexl.el
@@ -557,9 +557,9 @@ You may also type up to 3 octal digits, to insert a character with that code"
        (+ (* (/ address 16) 68) 52 (% address 16)))
       (delete-char 1)
       (insert (hexl-printable-character ch))
-      (if (eq address hexl-max-address)
-         (hexl-goto-address address)
-       (hexl-goto-address (1+ address)))
+      (or (eq address hexl-max-address)
+         (setq address (1+ address)))
+      (hexl-goto-address address)
       (setq num (1- num)))))
 
 ;; hex conversion